VLOT<- function(x)  
{
  ma=max(x$mul)
  Len=x[x$mul==ma,1]
  return (Len)
}